home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / k / kids7.dms / kids7.adf / CARDS.AMOS / CARDS.amosSourceCode < prev    next >
AMOS Source Code  |  1992-10-04  |  5KB  |  106 lines
  1. Global NAME$,LEVEL,SCORE,XX$
  2. CHOOSE
  3. Procedure CHOOSE
  4.    Colour Back $BBB : Load "kids-7:bits/tsam.abk",5 : Sam Loop On : Sam Play 15,1,8500
  5.     Extension_5_0120 "kids-7:bits/cardpic.abk",10
  6.    Unpack 10 To 0 : Screen Display 0,108,32,, : Get Fonts 
  7.    A$=Command Line$ : A=Instr(A$,"|") : B=Instr(A$,"/") : C=Instr(A$,"\") : L=Len(A$)
  8.    NAME$=Left$(A$,A-1) : L$=Mid$(A$,A+1,B-A-1) : LEVEL=Val(L$)
  9.    XX$=Mid$(A$,B+1,C-B-1) : S$=Right$(A$,L-C) : SCORE=Val(S$)
  10.    Set Font 3 : Ink 11,21 : X Mouse=374 : Y Mouse=241 : Limit Mouse 138,56 To 429,274 : L=1
  11.    If XX$="..." Then Cls 21 : Goto ALOVER
  12.    Reserve Zone 3
  13.    Set Zone 1,50,23 To 181,121
  14.    Set Zone 2,203,34 To 335,121
  15.    Set Zone 3,50,144 To 181,232
  16.    If Mid$(XX$,1,1)="." Then Cls 31,52,36 To 179,119 : Reset Zone 1 : Locate 10,10 : Print " SOLD OUT "
  17.    If Mid$(XX$,2,1)="." Then Cls 31,205,36 To 332,119 : Reset Zone 2 : Locate 30,10 : Print " SOLD OUT "
  18.    If Mid$(XX$,3,1)="." Then Cls 31,53,145 To 179,229 : Reset Zone 3 : Locate 10,23 : Print " SOLD OUT "
  19.    Do 
  20.       MZ=Mouse Zone : MK=Mouse Key
  21.       If MZ<>L
  22.          Cls 21,199,175 To 341,213
  23.          T$="                                 " : If FL=1 : Flash Off : FL=0 : End If 
  24.          If MZ=1 : T$="Mountains" : End If 
  25.          If MZ=2 : T$="Beach" : End If 
  26.          If MZ=3 : T$="Forest" : End If 
  27.          If MZ=0
  28.             T$="Click  A  Card"
  29.             Flash 11,"(F00,37)(0F0,37)(00F,37)" : FL=1
  30.          End If 
  31.          T=Text Length(T$) : TX=(380-T)/2 : TX=TX+80
  32.          Gr Writing 1 : Ink 23,21 : Text TX+1,200,T$
  33.          Gr Writing 8 : Ink 11,21 : Text TX,198,T$ : L=MZ
  34.       End If 
  35.       Exit If MK>0 and MZ>0
  36.    Loop 
  37.    Screen Close 0 : Screen Open 0,640,210,4,Hires : Curs Off : Flash Off : Palette $BBB,$F,$FFF,$555 : Cls 0 : Double Buffer 
  38.    Cls 2,70,10 To 550,200 : Ink 3 : Draw 71,200 To 551,200 : Draw 551,11 To 551,200
  39.    Get Fonts : Set Font 3 : Ink 1,2
  40.    Draw 400,32 To 400,180 : Draw 401,32 To 401,180 : Draw 410,80 To 540,80
  41.    Draw 410,100 To 540,100 : Draw 410,120 To 540,120 : Draw 410,140 To 540,140 : Draw 410,160 To 540,160
  42.    Limit Mouse 163,60 To 370,206 : Wait Vbl 
  43.    Text 90,30,"Dear  Duncan," : On MZ Gosub MTEX,BTEX,FTEX
  44.    Paste Bob 255,154,1 : IM=3 : Paste Bob 476,17,IM : Channel 1 To Bob 1 : Hide : Bob 1,100,100,2
  45.    Amal 1,"H: L X=XS(0,XM); L Y=YS(0,YM); J H" : Amal On 1
  46.    Repeat 
  47.       MK=Mouse Key
  48.    Until MK>0 and X Mouse>363 and Y Mouse<107
  49.    Sam Loop Off : Amal Off 1 : Show 
  50.    A$=NAME$+"|"+Str$(LEVEL)+"/"+XX$+"\"+Str$(SCORE) : Command Line$=A$
  51.    If MZ=1 Then Run "KIDS-7:CLIMB.AMOS"
  52.    If MZ=2 Then Run "KIDS-7:beach.amos"
  53.    If MZ=3 Then Run "KIDS-7:forest.amos"
  54.    End 
  55.    '
  56.    MTEX:
  57.    Text 90,50,"While  climbing  up  a  mountain"
  58.    Text 90,70,"I  slipped  and  fell  off."
  59.    Text 90,90,"I  was  saved  by  a  handy"
  60.    Text 90,110,"branch  and  "+NAME$+"  who"
  61.    Text 90,130,"found  some  rocks  to  pile"
  62.    Text 90,150,"up  so  I  could  climb  down"
  63.    Text 90,170,"to  safety."
  64.    Text 140,190,"Your  little"
  65.    Return 
  66.    FTEX:
  67.    Text 90,50,"While  walking  in  the  forest"
  68.    Text 90,70,"I  got  lost  and  could  not"
  69.    Text 90,90,"find  my  way  out.   Thank"
  70.    Text 90,110,"goodness  for  "+NAME$+"  who"
  71.    Text 90,130,"worked  out  which  was  the"
  72.    Text 90,150,"right  path  to  get  back"
  73.    Text 90,170,"to  the exit."
  74.    Text 140,190,"Your  little"
  75.    Return 
  76.    BTEX:
  77.    Text 90,50,"There  was  a  sand  castle"
  78.    Text 90,70,"building  competition  on  the"
  79.    Text 90,90,"beach.  With  a  little  bit  of"
  80.    Text 90,110,"help  from  "+NAME$+"  I  was"
  81.    Text 90,130,"able  to  make  some  great"
  82.    Text 90,150,"sand castles."
  83.    Text 90,170,"  "
  84.    Text 140,190,"Your  little"
  85.    Return 
  86.    ALOVER:
  87.    Screen Close 0 : Wait Vbl : Screen Open 0,640,200,4,Hires : Screen Hide 0 : Curs Off : Flash Off 
  88.    Palette $BBB,$F,$FFF,$555 : Set Font 3
  89.    Unpack 9 To 1 : Screen To Back : Get Bob 1,1,0,0 To 180,56 : Screen 0
  90.    Cls 0 : Cls 2,50,5 To 500,190 : Ink 3
  91.    Draw 50,190 To 500,190 : Draw 500,5 To 500,190
  92.    Draw 51,191 To 501,191 : Draw 501,6 To 501,191
  93.    Ink 1,2 : Text 90,25,"Dear  "+NAME$+","
  94.    Text 90,55,"Thank  you  for  looking  after  me."
  95.    Text 90,75,"You  gained  "+Str$(SCORE)+"  points."
  96.    Text 90,95,"I  hope  you  will  look after  me"
  97.    Text 90,115,"next  time  I  go  on  holiday."
  98.    Text 90,150,"Your  little"
  99.    Wait Vbl : Screen Show 0
  100.    Paste Bob 200,123,1 : Screen Close 1
  101.    Pen 1 : Paper 0 : Locate ,24 : Centre "Click to continue"
  102.    Repeat : MK=Mouse Key : Until MK>0
  103.    Screen 0 : Cls 0 : Amal Off : Bob Off : Limit Mouse : Ink 1,0
  104.    Text 30,150,"Back home..."
  105.    Sam Loop Off : Wait 150 : Cls 0 : Run "kids-7:title.amos"
  106. End Proc